home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
wavepool.zip
/
SQRT.WPL
< prev
next >
Wrap
Text File
|
1992-04-08
|
411b
|
26 lines
#
# SQRT Wavepool program
#
# Copyright 1992, Data Assist, Inc.
#
BEGIN {
screate("sqrt.sou")
for (x=0; x<=1000; x=x+10) {
sinwave2(x-sqrt(x), x+sqrt(x), 50);
quiet(2);
}
for (x=1000; x>=0; x=x-10) {
sinwave2(x-sqrt(x), x+sqrt(x), 50);
quiet(2);
}
quiet(10);
sclose(0);
sndvoc("sqrt.sou", "sqrt.voc");
}